
if( ! open(FICBOOK,"<KARAOKE_BOOK.txt") ) {
  exit(1);
}
@Fichiertri = <FICBOOK>;
sort(@Fichiertri);

close (FICBOOK);

if( ! open(FICBOOK1,">KARAOKE_BOOK1.txt") ) {
  exit(1);
}
print (FICBOOK1 @Fichiertri);

close (FICBOOK1);

# 
# open(MYINPUTFILE, "<filename.out"); # open for input
# my(@lines) = <MYINPUTFILE>; # read file into list
# @lines = sort(@lines); # sort the list
# my($line);
# foreach $line (@lines) # loop thru list
 # {
 # print "$line"; # print in sort order
 # }
# close(MYINPUTFILE);